home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020b.dsk / COLOR ORGAN.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  69 lines
  1. 0  REM  ***************
  2. 1  REM  AN ORGAN
  3. 2  REM  BY ERIKA
  4. 6  REM  ***************
  5. 7  REM 
  6. 8  REM 
  7. 9  REM  WRITTEN IN APPLESOFT
  8. 10  REM  WITH MACHINE LANGUAGE
  9. 11  REM  SUBROUTINES
  10. 12 D$ = "<CTRL-D>"
  11. 13  PRINT D$;"BLOAD TONE ROUTINE,A$300"
  12. 14  REM 
  13. 15  HOME 
  14. 16  GOSUB 10000
  15. 19  HOME 
  16. 20  GR 
  17. 25  VTAB 22
  18. 30  GET A$
  19. 35  IF A$ = "A"  OR A$ = "S"  OR A$ = "D"  OR A$ = "F"  OR A$ = "G"  OR A$ = "H"  OR A$ = "J"  OR A$ = "K"  OR A$ = "L"  THEN  GOTO 1000
  20. 36  IF A$ = "/"  THEN  TEXT : HOME : END 
  21. 37  IF A$ = "W"  OR A$ = "E"  OR A$ = "R"  OR A$ = "T"  OR A$ = "Y"  OR A$ = "U"  OR A$ = "I"  OR A$ = "O"  THEN  GOTO 1000
  22. 38  IF A$ = "Q"  THEN  GOTO 1000
  23. 999  REM  <CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>POKES FOR THE TONES
  24. 1000  IF A$ = "A"  THEN  POKE 6,73: POKE 7,255: GOSUB 2000
  25. 1001  IF A$ = "E"  THEN  POKE 6,95: POKE 7,255: GOSUB 2000
  26. 1002  IF A$ = "S"  THEN  POKE 6,82: POKE 7,255: GOSUB 2000
  27. 1003  IF A$ = "W"  THEN  POKE 6,85: POKE 7,255: GOSUB 2000
  28. 1004  IF A$ = "D"  THEN  POKE 6,88: POKE 7,255: GOSUB 2000
  29. 1005  IF A$ = "R"  THEN  POKE 6,115: POKE 7,255: GOSUB 2000
  30. 1006  IF A$ = "F"  THEN  POKE 6,100: POKE 7,255: GOSUB 2000
  31. 1007  IF A$ = "T"  THEN  POKE 6,125: POKE 7,255: GOSUB 2000
  32. 1008  IF A$ = "G"  THEN  POKE 6,115: POKE 7,255: GOSUB 2000
  33. 1009  IF A$ = "Y"  THEN  POKE 6,135: POKE 7,255: GOSUB 2000
  34. 1010  IF A$ = "H"  THEN  POKE 6,130: POKE 7,255: GOSUB 2000
  35. 1011  IF A$ = "U"  THEN  POKE 6,145: POKE 7,255: GOSUB 2000
  36. 1012  IF A$ = "J"  THEN  POKE 6,135: POKE 7,255: GOSUB 2000
  37. 1013  IF A$ = "I"  THEN  POKE 6,155: POKE 7,255: GOSUB 2000
  38. 1014  IF A$ = "K"  THEN  POKE 6,150: POKE 7,255: GOSUB 2000
  39. 1015  IF A$ = "O"  THEN  POKE 6,165: POKE 7,255: GOSUB 2000
  40. 1016  IF A$ = "L"  THEN  POKE 6,170: POKE 7,255: GOSUB 2000
  41. 1017  IF A$ = "Q"  THEN  POKE 6,82: POKE 7,255: GOSUB 2000
  42. 1998  GOTO 25
  43. 1999  REM  <CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>PICS FOR THE TONES
  44. 2000  REM  GRAPHICS MODE
  45. 2001  IF A$ = "A"  THEN  COLOR= 1: HLIN 1,39 AT 0: CALL 768: COLOR= 0: HLIN 1,39 AT 0
  46. 2002  IF A$ = "W"  THEN  COLOR= 2: HLIN 1,39 AT 3: CALL 768: COLOR= 0: HLIN 1,39 AT 3
  47. 2003  IF A$ = "S"  THEN  COLOR= 3: HLIN 1,39 AT 5: CALL 768: COLOR= 0: HLIN 1,39 AT 5
  48. 2004  IF A$ = "E"  THEN  COLOR= 4: HLIN 1,39 AT 8: CALL 768: COLOR= 0: HLIN 1,39 AT 8
  49. 2005  IF A$ = "D"  THEN  COLOR= 5: HLIN 1,39 AT 10: CALL 768: COLOR= 0: HLIN 1,39 AT 10
  50. 2006  IF A$ = "R"  THEN  COLOR= 6: HLIN 1,39 AT 13: CALL 768: COLOR= 0: HLIN 1,39 AT 13
  51. 2007  IF A$ = "F"  THEN  COLOR= 7: HLIN 1,39 AT 15: CALL 768: COLOR= 0: HLIN 1,39 AT 15
  52. 2008  IF A$ = "T"  THEN  COLOR= 8: HLIN 1,39 AT 18: CALL 768: COLOR= 0: HLIN 1,39 AT 18
  53. 2009  IF A$ = "G"  THEN  COLOR= 9: HLIN 1,39 AT 20: CALL 768: COLOR= 0: HLIN 1,39 AT 20
  54. 2010  IF A$ = "Y"  THEN  COLOR= 10: HLIN 1,39 AT 23: CALL 768: COLOR= 0: HLIN 1,39 AT 23
  55. 2011  IF A$ = "H"  THEN  COLOR= 11: HLIN 1,39 AT 25: CALL 768: COLOR= 0: HLIN 1,39 AT 25
  56. 2012  IF A$ = "U"  THEN  COLOR= 12: HLIN 1,39 AT 28: CALL 768: COLOR= 0: HLIN 1,39 AT 28
  57. 2013  IF A$ = "J"  THEN  COLOR= 13: HLIN 1,39 AT 30: CALL 768: COLOR= 0: HLIN 1,39 AT 30
  58. 2014  IF A$ = "I"  THEN  COLOR= 14: HLIN 1,39 AT 33: CALL 768: COLOR= 0: HLIN 1,39 AT 33
  59. 2015  IF A$ = "K"  THEN  COLOR= 15: HLIN 1,39 AT 35: CALL 768: COLOR= 0: HLIN 1,39 AT 35
  60. 2016  IF A$ = "O"  THEN  COLOR= 1: HLIN 1,39 AT 37: CALL 768: COLOR= 0: HLIN 1,39 AT 37
  61. 2017  IF A$ = "L"  THEN  COLOR= 2: HLIN 1,39 AT 39: CALL 768: COLOR= 0: HLIN 1,39 AT 39
  62. 2018  IF A$ = "Q"  THEN  COLOR= 13: HLIN 1,39 AT 0: CALL 768: COLOR= 0: HLIN 1,39 AT 0
  63. 3000  RETURN 
  64. 10000  INPUT "DO YOU NEED INSTRUCTIONS <Y/N> ?";L$
  65. 10001  IF  LEFT$(L$,1) < >"Y"  THEN  RETURN 
  66. 10003  PRINT "THIS IS REALLY A VERY SIMPLE GAME.THE   KEYBOARD ACTS AS AN ORGAN.WHEN YOU      PRESS ONE OF THE SELECTED KEYS,YOU WILL SEE A BAR OF LIGHT AND HEAR A MUSICAL   TONE."
  67. 10004  PRINT : PRINT " IF YOU GET TIRED OF IT,JUST PRESS THE  '/' KEY,AND THE PROGRAM WILL END        AUTOMATICALLY.SO,IF YOU'RE READY,HERE   WE GO!"
  68. 10005  VTAB 22: PRINT "PRESS ANY KEY TO BEGIN ";: GET R$
  69. 10006  RETURN